home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / addon2.mrc next >
Encoding:
Text File  |  2000-02-16  |  9.6 KB  |  370 lines
  1. ;%%%%%%%%%%%%%%%%%%%%%%%%
  2. ;script ircN Addon/Theme Loaders
  3. ;version 7.20
  4. ;author Quietust
  5. ;email quietust@ircN.org
  6. ;url http://www.ircN.org
  7. ;%%%%%%%%%%%%%%%%%%%%%%%%
  8. alias addons {
  9.   if ($findfile($adn,*.ad2,0) == 0) iecho No addons were found.
  10.   else dialog -m ircN.addons ircN.addons
  11. }
  12. on 1:DIALOG:ircN.addons:*:* {
  13.   if ($devent == init) {
  14.     set %i.addons 0
  15.     :start
  16.     inc %i.addons
  17.     if ($findfile($adn,*.ad2,%i.addons)) {
  18.       if ($findtok(%aver,$nopath($findfile($adn,*.ad2,%i.addons)),1,32) == $null) did -a $dname 11 $nopath($findfile($adn,*.ad2,%i.addons))
  19.       goto start
  20.     } 
  21.     if (%aver) {
  22.       set %i.addons 0
  23.       :start2
  24.       inc %i.addons
  25.       if ($gettok(%aver,%i.addons,32)) {
  26.         did -a $dname 21 $gettok(%aver,%i.addons,32)
  27.         goto start2
  28.       }
  29.     }
  30.   }
  31.   elseif ($devent == sclick) {
  32.     if ($did == 11) {
  33.       txt2cc $avar($did(11,$did(11).sel),aver)
  34.       did -ra $dname 12 $replace($strip($result),&,&&)
  35.       did -u $dname 21
  36.       did -r $dname 22
  37.     }
  38.     elseif ($did == 21) {
  39.       txt2cc $avar($did(21,$did(21).sel),aver)
  40.       did -ra $dname 22 $replace($strip($result),&,&&)
  41.       did -u $dname 11
  42.       did -r $dname 12
  43.     }
  44.     elseif ($did == 31) {
  45.       if ($did(11).sel == $null) return
  46.       .timer 1 0 addon2 $did(11,$did(11).sel)
  47.       did -ac $dname 21 $did(11,$did(11).sel)
  48.       txt2cc $avar($did(21,$did(21).sel),aver)
  49.       did -ra $dname 22 $replace($strip($result),&,&&)
  50.       did -d $dname 11 $did(11).sel
  51.       did -r $dname 12
  52.     }
  53.     elseif ($did == 33) {
  54.       if ($did(21).sel == $null) return
  55.       .timer 1 0 unaddon2 $did(21,$did(21).sel)
  56.       did -ac $dname 11 $did(21,$did(21).sel)
  57.       txt2cc $avar($did(11,$did(11).sel),aver)
  58.       did -ra $dname 12 $replace($strip($result),&,&&)
  59.       did -r $dname 22
  60.       did -d $dname 21 $did(21).sel
  61.     }
  62.   }
  63. }
  64. alias addon2 {
  65.   if ($1 == $null) {
  66.     iecho Syntax: /addon2 <filename.ad2>
  67.     return
  68.   }
  69.   if ($isfile($adn($1)) == $false) {
  70.     iecho Error! File $1 does not exist!
  71.     return
  72.   }
  73.   if ($avar($1,installtitle) == $null) {
  74.     iecho Error! $1 is an invalid .ad2 file!
  75.     return
  76.   }
  77.   set %ad2.install $1
  78.   dialog -m ircN.addon2 ircN.addon2
  79. }
  80. on 1:DIALOG:ircN.addon2:init:* { ad2.inst %ad2.install 0 $dname }
  81. alias -l ad2.hidebar1 {
  82.   did -h ircN.addon2 7
  83.   did -h ircN.addon2 8
  84.   did -h ircN.addon2 9
  85.   did -h ircN.addon2 10
  86.   did -h ircN.addon2 11
  87.   did -h ircN.addon2 12
  88.   did -h ircN.addon2 13
  89.   did -h ircN.addon2 14
  90.   did -h ircN.addon2 15
  91.   did -h ircN.addon2 16
  92. }
  93. alias -l ad2.inst {
  94.   if ((0 < $2) && ($2 < 11)) did -c $3 $pls($2,6)
  95.   if ($2 == 0) {
  96.     did -a $3 2 $avar($1,installtitle)
  97.     did -a $3 3 $avar($1,installtext1)
  98.     did -a $3 4 $avar($1,installtext2)
  99.   }
  100.   elseif ($2 == 1) {
  101.     if ($findtok(%aver,$1,1,32)) {
  102.       ad2.hidebar1
  103.       did -a $3 17 $avar($1,alreadyinstalled1)
  104.       set %ad2.i 1
  105.       :error1
  106.       inc %ad2.i
  107.       set %ad2.tmp $avar($1,alreadyinstalled [ $+ [ %ad2.i ] ] )
  108.       if (%ad2.tmp) {
  109.         .timer 1 $mpy($sub(%ad2.i,1),3) did -ra $3 17 $avar($1,%ad2.tmp)
  110.         goto error1
  111.       }
  112.       .timer 1 $mpy($sub(%ad2.i,1),3) dialog -c $3
  113.       unset %ad2.*
  114.       return
  115.     }
  116.   }
  117.   elseif ($2 == 2) {
  118.     set %ad2.i 0
  119.     :loop1
  120.     inc %ad2.i
  121.     unset %ad2.tmp
  122.     set %ad2.tmp $avar($1,badver [ $+ [ %ad2.i ] ] )
  123.     if (%ad2.tmp != $null) {
  124.       if ($findtok(%aver,%ad2.tmp,1,32)) {
  125.         set %ad2.ver badver $+ %ad2.i $+ .reason
  126.         set %ad2.tmp %ad2.ver $+ 1
  127.         ad2.hidebar1
  128.         did -a $3 17 $avar($1,%ad2.tmp)
  129.         set %ad2.j 1
  130.         :error2
  131.         inc %ad2.j
  132.         set %ad2.tmp $avar($1, [ [ %ad2.ver ] $+ [ %ad2.j ] ] )
  133.         if (%ad2.tmp) {
  134.           .timer 1 $mpy($sub(%ad2.j,1),3) did -ra $3 17 %ad2.tmp
  135.           goto error2
  136.         }
  137.         .timer 1 $mpy($sub(%ad2.j,1),3) dialog -c $3
  138.         unset %ad2.*
  139.         return
  140.       }
  141.       else goto loop1
  142.     }
  143.   }
  144.   elseif ($2 == 3) {
  145.     set %ad2.i 0
  146.     :loop2
  147.     inc %ad2.i
  148.     set %ad2.tmp $avar($1,oldver [ $+ [ %ad2.i ] ] )
  149.     if (%ad2.tmp) {
  150.       set %aver $remtok(%aver,%ad2.tmp,1,32)
  151.       goto loop2
  152.     }
  153.   }
  154.   elseif ($2 == 4) {
  155.     set %ad2.i 0
  156.     :loop3
  157.     inc %ad2.i
  158.     set %ad2.tmp $avar($1,script [ $+ [ %ad2.i ] ] )
  159.     if (%ad2.tmp) {
  160.       .load -rs $adn(%ad2.tmp)
  161.       goto loop3
  162.     }
  163.   }
  164.   elseif ($2 == 5) {
  165.     set %ad2.i 0
  166.     :loop4
  167.     inc %ad2.i
  168.     set %ad2.tmp $avar($1,alias [ $+ [ %ad2.i ] ] )
  169.     if (%ad2.tmp) {
  170.       .load -a $adn(%ad2.tmp)
  171.       goto loop4
  172.     }
  173.   }
  174.   elseif ($2 == 6) {
  175.     set %ad2.i 0
  176.     :loop5
  177.     inc %ad2.i
  178.     set %ad2.tmp $avar($1,newfile [ $+ [ %ad2.i ] ] )
  179.     if (%ad2.tmp) {
  180.       if ($exists($adn(%ad2.tmp)) == $false) .write -c $adn(%ad2.tmp)
  181.       goto loop5
  182.       set %ad2.tmp 
  183.     }
  184.   }
  185.   elseif ($2 == 7) {
  186.     set %ad2.i 0
  187.     :loop6
  188.     inc %ad2.i
  189.     set %ad2.tmp $avar($1,var [ $+ [ %ad2.i ] ] )
  190.     if (%ad2.tmp) {
  191.       if ($gettok(%ad2.tmp,2,32) != $null) set % [ $+ [ $gettok(%ad2.tmp,1,32) ] ] $gettok(%ad2.tmp,2-,32)
  192.       goto loop6
  193.     }
  194.   }
  195.   elseif ($2 == 8) {
  196.     set %ad2.i 0
  197.     :loop7
  198.     inc %ad2.i
  199.     set %ad2.tmp $avar($1,cvar [ $+ [ %ad2.i ] ] )
  200.     if (%ad2.tmp) {
  201.       if ($gettok(%ad2.tmp,2,32) != $null) {
  202.         txt2cc $gettok(%ad2.tmp,2-,32)
  203.         set % [ $+ [ $gettok(%ad2.tmp,1,32) ] ] $result
  204.       }
  205.       goto loop7
  206.     }
  207.   }
  208.   elseif ($2 == 9) .save -rv vars.mrc
  209.   elseif ($2 == 10) { set %aver $addtok(%aver,$1,32) }
  210.   elseif ($2 == 11) {
  211.     ad2.hidebar1
  212.     did -a $3 17 $avar($1,installed1)
  213.     set %ad2.i 1
  214.     :done
  215.     inc %ad2.i
  216.     set %ad2.tmp $avar($1,installed [ $+ [ %ad2.i ] ] )
  217.     if (%ad2.tmp) {
  218.       .timer 1 $mpy($sub(%ad2.i,1),3) did -ra $3 17 %ad2.tmp
  219.       goto done
  220.     }
  221.     .timer 1 $mpy($sub(%ad2.i,1),3) dialog -c $3
  222.     unset %ad2.*
  223.   }
  224.   else return
  225.   .timer -m 1 100 ad2.inst $1 $pls($2,1) $3
  226. }
  227. alias unaddon2 {
  228.   if ($1 == $null) {
  229.     iecho Syntax: /unaddon2 <filename.ad2>
  230.     return
  231.   }
  232.   if ($isfile($adn($1)) == $false) {
  233.     iecho Error! File $1 does not exist!
  234.     return
  235.   }
  236.   if ($avar($1,uninstalltitle) == $null) {
  237.     iecho Error! $1 is an invalid .ad2 file!
  238.     return
  239.   }
  240.   set %ad2.uninstall $1
  241.   dialog -m ircN.unaddon2 ircN.unaddon2
  242. }
  243. on 1:DIALOG:ircN.unaddon2:init:* { ad2.uninst %ad2.uninstall 0 $dname }
  244. alias -l ad2.hidebar2 {
  245.   did -h ircN.unaddon2 7
  246.   did -h ircN.unaddon2 8
  247.   did -h ircN.unaddon2 9
  248.   did -h ircN.unaddon2 10
  249.   did -h ircN.unaddon2 11
  250.   did -h ircN.unaddon2 12
  251.   did -h ircN.unaddon2 13
  252. }
  253. alias -l ad2.uninst {
  254.   if ((0 < $2) && ($2 < 8)) did -c $3 $pls($2,6)
  255.   if ($2 == 0) {
  256.     did -a $3 2 $avar($1,uninstalltitle)
  257.     did -a $3 3 $avar($1,uninstalltext1)
  258.     did -a $3 4 $avar($1,uninstalltext2)
  259.   }
  260.   elseif ($2 == 1) {
  261.     if ($findtok(%aver,$1,1,32) == $null) {
  262.       ad2.hidebar2
  263.       did -a $3 14 $avar($1,notinstalled1)
  264.       set %ad2.i 1
  265.       :error1
  266.       inc %ad2.i
  267.       set %ad2.tmp $avar($1,notinstalled [ $+ [ %ad2.i ] ] )
  268.       if (%ad2.tmp) {
  269.         .timer 1 $mpy($sub(%ad2.i,1),3) did -ra $3 14 $avar($1,%ad2.tmp)
  270.         goto error1
  271.       }
  272.       .timer 1 $mpy($sub(%ad2.i,1),3) dialog -c $3
  273.       unset %ad2.*
  274.       return
  275.     }
  276.   }
  277.   elseif ($2 == 2) {
  278.     set %ad2.i 0
  279.     :loop3
  280.     inc %ad2.i
  281.     set %ad2.tmp $avar($1,script [ $+ [ %ad2.i ] ] )
  282.     if (%ad2.tmp) {
  283.       .unload -rs $adn(%ad2.tmp)
  284.       goto loop3
  285.     }
  286.   }
  287.   elseif ($2 == 3) {
  288.     set %ad2.i 0
  289.     :loop4
  290.     inc %ad2.i
  291.     set %ad2.tmp $avar($1,alias [ $+ [ %ad2.i ] ] )
  292.     if (%ad2.tmp) {
  293.       .unload -a $adn(%ad2.tmp)
  294.       goto loop4
  295.     }
  296.   }
  297.   elseif ($2 == 4) {
  298.     set %ad2.i 0
  299.     :loop6
  300.     inc %ad2.i
  301.     set %ad2.tmp $avar($1,var [ $+ [ %ad2.i ] ] )
  302.     if (%ad2.tmp) {
  303.       .timer 1 0 unset % $+ $gettok(%ad2.tmp,1,32)
  304.       goto loop6
  305.     }
  306.   }
  307.   elseif ($2 == 5) {
  308.     set %ad2.i 0
  309.     :loop7
  310.     inc %ad2.i
  311.     set %ad2.tmp $avar($1,cvar [ $+ [ %ad2.i ] ] )
  312.     if (%ad2.tmp) {
  313.       .timer 1 0 unset % $+ $gettok(%ad2.tmp,1,32)
  314.       goto loop7
  315.     }
  316.   }
  317.   elseif ($2 == 6) .save -rv vars.mrc
  318.   elseif ($2 == 7) { set %aver $remtok(%aver,$1,1,32) }
  319.   elseif ($2 == 8) {
  320.     ad2.hidebar2
  321.     did -a $3 14 $avar($1,uninstalled1)
  322.     set %ad2.i 1
  323.     :done
  324.     inc %ad2.i
  325.     set %ad2.tmp $avar($1,uninstalled [ $+ [ %ad2.i ] ] )
  326.     if (%ad2.tmp) {
  327.       .timer 1 $mpy($sub(%ad2.i,1),3) did -ra $3 14 %ad2.tmp
  328.       goto done
  329.     }
  330.     .timer 1 $mpy($sub(%ad2.i,1),3) dialog -c $3
  331.     unset %ad2.*
  332.   }
  333.   else return
  334.   .timer -m 1 100 ad2.uninst $1 $pls($2,1) $3
  335. }
  336. alias themes {
  337.   if ($1 == on) {
  338.     set %theme on
  339.     if ($exists($themedir(%themename))) iecho Sound themes now enabled. ( $+ $hc(%themename) $+ )
  340.     else iecho Sound themes now enabled. (none)
  341.   }
  342.   elseif ($1 == off) {
  343.     set %theme off
  344.     iecho Sound themes now disabled.
  345.   }
  346.   else {
  347.     if (($findfile($themedir,*.thm,0) == 0) && ($findfile($themedir,*.th2,0) == 0)) iecho No themes were found.
  348.     else dialog -m ircN.themes ircN.themes
  349.   }
  350. }
  351. on 1:DIALOG:ircN.themes:*:* {
  352.   if ($devent == init) {
  353.     set %i 0
  354.     :start
  355.     inc %i
  356.     if ($findfile($themedir,*.thm,%i) != $null) {
  357.       did -a $dname 2 $nopath($findfile($themedir,*.thm,%i))
  358.       goto start
  359.     }
  360.     set %i 0
  361.     :start2
  362.     inc %i
  363.     if ($findfile($themedir,*.th2,%i) != $null) {
  364.       did -a $dname 2 $remove($findfile($themedir,*.th2,%i),$themedir))
  365.       goto start2
  366.     }
  367.   }
  368.   elseif (($devent == sclick) && ($did == 10) && ($did(2).sel)) load $did(2,$did(2).sel) 
  369. }
  370.